PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/PSI/Eliza 1.0/stack.txt

Text File | 1988-04-23 | 5.1 KB | 160 lines

-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x4000 (can't delete)
-- protect password hash: 1031175464
-- maximum user level: 2 (typing)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2639
-- card count: 2
-- first card id: 2952
-- list block id: 3172
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 3
-- free size: 20736 bytes
-- total size: 37888 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----

-- this is to disable ALL CONTROL once this program is finished.
--on Idle
--  if the commandKey is down then Answer "No command key allowed !"
--  if the optionKey is down then Answer "No option key allowed !"
--end Idle


-----------------------------------------------------
-- PORTIONS OF THIS CODE IS FROM :
--
-- Yen's string functions, version 1.0
-- © copyright 1988 by Yen Applecia, all rights reserved
--
--

function right string, num
return char 1 to num of string
end right

function breakKey string, key
put (length of string) into len
put (length of key) into keylen
put offset(key, string) into off
put key into line two of Result
put right(string, off-1) into line one of Result
put char (off + keylen) to len of string into line three of Result
return Result
end breakKey

function noLeading string
repeat while (char 1 of string is space)
  delete first char of string
end repeat
return string
end noLeading

function noTrailing string
repeat while (last char of string is space)
  delete last char of string
end repeat
return string
end noTrailing

function Trim string
put noLeading(string) into string
put noTrailing(string) into string
return string
end Trim
-----------------------------------------------------

-- string functions version 1.1 updates

function butFirst string, num
return word num+1 to number of words in string of string
end butFirst

function RemovePuncs string
repeat with index = 1 to length of string
  put char index of string into temp
  if temp is "?" or temp is "!" or temp is "." or temp is ";" or temp is "," or temp is ":" or temp is "-" or temp is "'" then delete char index of string
end repeat
return string
end RemovePuncs

function ReverseRole string
repeat with index = 1 to number of words in string
  put word index of string into A
  if A is "are" then put "am" into word index of string
  if A is "am" then put "are" into word index of string
  if A is "were" then put "was" into word index of string
  if A is "was" then put "were" into word index of string
  if A is "you" then put "me" into word index of string
  if A is "I" then put "you" into word index of string
  if A is "me" then put "you" into word index of string
  if A is "your" then put "my" into word index of string
  if A is "my" then put "your" into word index of string
  if A is "Ive" then put "you've" into word index of string
  if A is "Youve" then put "I've" into word index of string
  if A is "Im" then put "you're" into word index of string
  if A is "youre" then put "I'm" into word index of string
end repeat
return string
end ReverseRole

-----------------------------------------------------
================================================================
================================================================
================================================================
================================================================
================================================================